Voorbeeld van de gebeurtenissen Activate en Deactivate

De volgende programmacode maakt gebruik van twee gebruikersformulieren: UserForm1 en UserForm2. Kopieer deze procedures naar de module UserForm1 en voeg vervolgens UserForm2 toe. De titel van UserForm1 wordt gemaakt in de gebeurtenisprocedure Activate. Wanneer de gebruiker op het clientgebied van UserForm1 klikt, wordt UserForm2 geladen en wordt weergegeven hoe deze de gebeurtenis Deactivate van UserForm1 start en de titels verandert.

' Activate-gebeurtenis voor UserForm1
Private Sub UserForm_Activate()
    UserForm1.Caption = "Klik op het clientgebied"
End Sub

' Click-gebeurtenis voor UserForm1
Private Sub UserForm_Click()
    Load UserForm2
    UserForm2.StartUpPosition = 3
    UserForm2.Show
End Sub

' Deactivate-gebeurtenis voor UserForm1
Private Sub UserForm_Deactivate()
    UserForm1.Caption = "Focus is verdwenen!"
    UserForm2.Caption = "Focus is zojuist van UserForm1 hierheen verplaatst"
End Sub